home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / dcg301up / regular.scr < prev    next >
Encoding:
Text File  |  1993-05-02  |  1.7 KB  |  76 lines
  1. !
  2. ! Default adventurer script..
  3. !
  4. ! (c) DC Software, 1992
  5. !
  6.  
  7. !------------------------------------------------------------------------!
  8. :@TALK ! Talk to the character !
  9. !------------------------------------------------------------------------!
  10.  
  11. ! First, say hello.. !
  12.   if NPC.V0 > 0 then
  13.     writeln( "Hello ", player.name, ". What brings you back?" );
  14.   else
  15.     writeln( "Hello. I am ", npc.name, ". How may I help you?" );
  16.   endif;
  17.  
  18. ! Now, set some variables..
  19.   NPC.V0 = 1; ! From know on, remember we've been here
  20.  
  21. :CHAT
  22.   L3 = getstr("Name","Job","Join","Bye");
  23.   if L3 = -1 goto CSTOP; 
  24.  
  25. ! Handle JOIN differently..
  26.   if L3 = 2 then 
  27.     if npc.level > player.level + 4 then
  28.       writeln( "You are much to inexperienced. Ask me again later!" );
  29.       goto CHAT;
  30.     endif;
  31.     if npc.level < player.level - 6 then
  32.       writeln( "I am much to inexperienced to join you.." );
  33.       goto CHAT;
  34.     endif;
  35.     if group.size = 6 then
  36.       writeln( "Your party is full!" );
  37.       goto CHAT;
  38.     endif;
  39.     if NOT dotext( S0 ) then
  40.       writeln( "Let's get busy!" );
  41.     endif;
  42.     JOIN;
  43.     STOP;
  44.   endif;
  45.  
  46. ! First, see if the keyword typed is in the character's writeln block !
  47.   if dotext( S0 ) then
  48.     if L3 = 3 then
  49.       STOP;
  50.     endif;
  51.     goto CHAT;
  52.   endif;
  53.  
  54. ! It didn't, so try the predefined ones..
  55.   on L3 goto CNAME, CJOB, CHAT, CSTOP;
  56.  
  57. ! Nope, try a 'DEFAULT' line
  58.   if not dotext( "DEFAULT" ) then
  59.     writeln( "I don't know anything about that!" );
  60.   endif;
  61.   goto CHAT;
  62.  
  63. :CNAME
  64.   writeln( "My name is ", NPC.name, "." );
  65.   GOTO CHAT;
  66.  
  67. :CJOB
  68.   writeln( "I am a ", npc.type );
  69.   GOTO CHAT;
  70.  
  71. :CSTOP
  72.   writeln( "Nice talking to you.." );
  73.   STOP;
  74.  
  75. ! Feel free to expand on this list.. !
  76.